<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!-- InstanceBegin template="/Templates/hinhmaunguoidung.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <!-- InstanceBeginEditable name="doctitle" -->
    <title>Phiếu nhập điểm giá trị còn lại của thiết bị</title>

    <script language="javascript">
function messageWindow(title)

{
  url="InPhieuDiemNhapGiaTriConLaiCuaThietBi.asp";
  var height=screen.height;
    var width=screen.width;

	//content="status,menubar,scrollbars,height=" + height + ",width=" + width +")";
	//var newWindow = window.open(url,"msgWindow",content);
  var newWindow = window.open(url,"msgWindow", "status,menubar,scrollbars,height=600,width=600");

	newWindow.focus( );
}
    </script>

    <script language="javascript">
function messageWindow1(title)

{
  url="InTatCaPhieuDiemGiaTriConLai.asp";
  var height=screen.height;
    var width=screen.width;

	//content="status,menubar,scrollbars,height=" + height + ",width=" + width +")";
	//var newWindow = window.open(url,"msgWindow",content);
  var newWindow = window.open(url,"msgWindow", "status,menubar,scrollbars,height=600,width=600");

	newWindow.focus( );
}
    </script>

</head>
<%
					MaSanPham=Session("ma_sp")
					MaHoiDong=Session("ma_hd")
					MaDoanhNghiep=Session("ma_dn")
					Rs.open "Select TenDoanhNghiep From DoanhNghiep where MaDoanhNghiep=" & MaDoanhNghiep,conn,3
					
					strTB = "SELECT dbo.ThietBi.MaThietBi, dbo.ThietBi.TenThietBi, dbo.ThietBi.NamSanXuat, dbo.ThietBi.NoiSanXuat FROM dbo.ThietBi where dbo.ThietBi.MaDoanhNghiep = " & MaDoanhNghiep 
					dim RSTB
					set RSTB = Server.CreateObject("ADODB.Recordset")
					RSTB.open strTB,conn,3
					
					dim RSHD
					set RSHD = Server.CreateObject("ADODB.Recordset")
					RSHD.open "Select * from HoiDong where MaHoiDong="& MaHoiDong ,conn,3
					
					CongDoanSize = 0
					HieuQuaSize = 0
					
					 dim RS22
					set RS22 = server.CreateObject("adodb.recordset")
					strCheck = "select * from ThietBi where MaDoanhNghiep='"&Session("ma_dn")&"'"
					RS22.open strCheck, conn
					
%>
<body>
    <input name="InPhieuDiem" type="button" id="InPhieuDiem" value="In phiếu điểm" onclick="messageWindow('Phiếu điểm giá trị còn lại của thiết bị');" />
    <input name="inall" type="button" id="inall" value="In tất cả điểm giá trị còn lại"
        onclick="messageWindow1('In tất cả phiếu điểm giá trị còn lại của thiết bị');">
    </p>
    <form id="form1" name="form1" method="post" action="CapNhatDiemConLaiCuaSanPham.asp">
        <br />
        <br />
        &nbsp;&nbsp;<b>Lưu ý:</b> nếu cả 4 đại lượng T,H,N,C ảnh hưởng đều đến giá trị còn
        lại
        <br />
        &nbsp;&nbsp;của thiết bị thì k<sub>T</sub> = k<sub>N</sub> = k<sub>H</sub> = k<sub>C</sub>
        = 1, m = 4.
        <br />
        <table width="100%" border="1">
            <tr>
                <td colspan="2">
                    <div align="center" class="style3">
                        PHIẾU CHO ĐIỂM GIÁ TRỊ CÒN LẠI CỦA THIẾT BỊ</div>
                </td>
            </tr>
            <tr>
                <td colspan="2">
                    Hội đồng:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=RSHD(1)%>
                </td>
            </tr>
            <tr>
                <td colspan="2">
                    Doanh nghiệp &nbsp;<%="<b>" & Rs(0) & "</b>"  %></td>
                <input name="CountTB" type="hidden" value="<%=RSTB.recordCount%>" />
            </tr>
            <%if not (RS22.eof) then%>
            <% i=1 %>
            <% while(not RSTB.EOF)
						dim RSLAY
						set RSLAY = server.CreateObject("adodb.recordset")
						strCheck = "select * from ThietBi where Mathietbi="&RSTB(0)
						RSLAY.open strCheck, conn	
            %>
            <tr>
                <td colspan="2">
                    &nbsp;</td>
            </tr>
            <tr>
                <input name="MaThietBi<%=i%>" type="hidden" value="<%= RSLAY(0)%>" />
                <td colspan="2">
                    <%="<center> <b>" & RSLAY(1) & "</b>" & ". Năm sản xuất: " & RSLAY(2) & ". Nơi sản xuất: " & RSLAY(3) & "</center>"%>
                </td>
            </tr>
            <tr>
                <td width="86%">
                    Lạc hậu về đời T%</td>
                <td width="14%">
                    <input name="T<%=i%>" id="T<%=i%>" type="text" size="3" value="<%=RSLAY(4)%>" />
                    %</td>
            </tr>
            <tr>
                <td>
                    Hao mòn hữu hình H%</td>
                <td>
                    <input name="H<%=i%>" type="text" size="3" value="<%=RSLAY(5)%>" />
                    %</td>
            </tr>
            <tr>
                <td>
                    Năng suất thực tế N%</td>
                <td>
                    <input name="N<%=i%>" id="N<%=i%>" type="text" size="3" value="<%=RSLAY(6)%>" />
                    %</td>
            </tr>
            <tr>
                <td>
                    Chất lượng C%</td>
                <td>
                    <input name="C<%=i%>" type="text" size="3" value="<%=RSLAY(7)%>" />
                    %</td>
            </tr>
            <tr>
                <td>
                    k (k nằm trong khoảng từ 0 đến 1)
                </td>
                <td>
                    <input name="K<%=i%>" type="text" size="3" value="<%=RSLAY(8)%>" /></td>
            </tr>
            <tr>
                <td>
                    k<sub>T</sub> (k<sub>T</sub> là hệ số ảnh hưởng)
                </td>
                <td>
                    <input name="Kt<%=i%>" type="text" size="3" value="<%=RSLAY(9)%>" /></td>
            </tr>
            <tr>
                <td>
                    k<sub>H</sub> (k<sub>H</sub>là hệ số ảnh hưởng)</td>
                <td>
                    <input name="Kh<%=i%>" type="text" size="3" value="<%=RSLAY(10)%>" /></td>
            </tr>
            <tr>
                <td>
                    k<sub>N</sub> (k<sub>N</sub>là hệ số ảnh hưởng)</td>
                <td>
                    <input name="Kn<%=i%>" type="text" size="3" value="<%=RSLAY(11)%>" /></td>
            </tr>
            <tr>
                <td>
                    k<sub>C</sub> (k<sub>C</sub>là hệ số ảnh hưởng)</td>
                <td>
                    <input name="Kc<%=i%>" type="text" size="3" value="<%=RSLAY(12)%>" /></td>
            </tr>
            <%  RSLAY.close()
						  i=i+1
					  	RSTB.moveNext()
						Wend
						RSTB.close() ' khet thuc phan lay ra thiet bi cua doanh nghiep
            %>
            <%else%>
            <% i=1 %>
            <%while not (RS22.eof)%>
            <tr>
                <td colspan="2">
                    &nbsp;</td>
            </tr>
            <tr>
                <input name="MaThietBi<%=i%>" type="hidden" value="<%= RSTB(0)%>" />
                <td colspan="2">
                    <%="<center> <b>" & RSTB(1) & "</b>" & ". Năm sản xuất: " & RSTB(2) & ". Nơi sản xuất: " & RSTB(3) & "</center>"%>
                </td>
            </tr>
            <tr>
                <td width="86%">
                    Lạc hậu về đời T%</td>
                <td width="14%">
                    <input name="T<%=i%>" type="text" size="3" value="0" />
                    %</td>
            </tr>
            <tr>
                <td>
                    Hao mòn hữu hình H%</td>
                <td>
                    <input name="H<%=i%>" type="text" size="3" value="0" />
                    %</td>
            </tr>
            <tr>
                <td>
                    Năng suất thực tế N%</td>
                <td>
                    <input name="N<%=i%>" type="text" size="3" value="0" />
                    %</td>
            </tr>
            <tr>
                <td>
                    Chất lượng C%</td>
                <td>
                    <input name="C<%=i%>" type="text" size="3" value="0" />
                    %</td>
            </tr>
            <tr>
                <td>
                    k (k nằm trong khoảng từ 0 đến 1)
                </td>
                <td>
                    <input name="K<%=i%>" type="text" size="3" value="0" /></td>
            </tr>
            <tr>
                <td>
                    k<sub>T</sub> (k<sub>T</sub> là hệ số ảnh hưởng)
                </td>
                <td>
                    <input name="Kt<%=i%>" type="text" size="3" value="0" /></td>
            </tr>
            <tr>
                <td>
                    k<sub>H</sub> (k<sub>H</sub>là hệ số ảnh hưởng)</td>
                <td>
                    <input name="Kh<%=i%>" type="text" size="3" value="0" /></td>
            </tr>
            <tr>
                <td>
                    k<sub>N</sub> (k<sub>N</sub>là hệ số ảnh hưởng)</td>
                <td>
                    <input name="Kn<%=i%>" type="text" size="3" value="0" /></td>
            </tr>
            <tr>
                <td>
                    k<sub>C</sub> (k<sub>C</sub>là hệ số ảnh hưởng)</td>
                <td>
                    <input name="Kc<%=i%>" type="text" size="3" value="0" /></td>
            </tr>
            <% i=i+1
					  RSTB.movenext
					  wend
					   
					  RSTB.close()
					  end if
            %>
            <tr>
                <td>
                    <input name="cmđNhapiem" type="submit" value="Nhập điểm" />
                    &nbsp;</td>
            </tr>
        </table>
    </form>
    <%'end if%>
</body>
<!-- InstanceEnd -->
</html>
